Hyper Stacks 1994 May/Hyper Stacks (Pacific HiTech)(1994)[Mac].iso/HyperTalk/Stack Starter ß.976/Stack Starter fl.976/card_3177.txt

Text File | 1988-08-03 | 10.5 KB | 523 lines

-- card: 3177 from stack: in.976
-- bmap block id: 20031
-- flags: 0000
-- background id: 2295
-- name: animated icons 2
----- HyperTalk script -----
on closeCard
  show card btn id 10
  show card btn id 11
  set icon of btn "BulletHole" to 0
  pass closeCard
end closeCard

on idle
  send idle to card btn "Candle"
  if visible of field "Mouse Loc2" is true then
    put the mouseLoc into field "Mouse Loc2"
  end if
  send idle to stack
  exit idle
end idle


-- part 1 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=34 top=92 right=142 bottom=73
-- title width / last selected line: 0
-- icon id / first selected line: 32221 / 32221
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 8192
-- line height: 16
-- part name: Hammer
----- HyperTalk script -----
on mouseUp
  set icon of me to 29603
  set icon of me to 3105
  set icon of me to 14951
  set icon of me to 32221
  play "Metal Falling"
end mouseUp



-- part 2 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=34 top=144 right=194 bottom=73
-- title width / last selected line: 0
-- icon id / first selected line: 14013 / 14013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 8192
-- line height: 16
-- part name: Key
----- HyperTalk script -----
on mouseUp
  set icon of me to 8191
  play "click"
  set icon of me to 4375
  play "click"
  set icon of me to 16437
  play "click"
  set icon of me to 29777
  play "click"
  set icon of me to 6603
  play "click"
  play "car"
  set icon of me to 14013
  send mouseEnter to btn "Cucu"
end mouseUp



-- part 3 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=34 top=196 right=246 bottom=73
-- title width / last selected line: 0
-- icon id / first selected line: 6686 / 6686
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 8192
-- line height: 16
-- part name: Wrench
----- HyperTalk script -----
on mouseUp
  set icon of me to 12056
  set icon of me to 21591
  play "SpinCylinder" fe
  set icon of me to 21591
  set icon of me to 23480
  set icon of me to 6686
end mouseUp


-- part 4 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=34 top=248 right=298 bottom=73
-- title width / last selected line: 0
-- icon id / first selected line: 23959 / 23959
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 8192
-- line height: 16
-- part name: ScwDvr
----- HyperTalk script -----
on mouseUp
  set icon of me to 7139
  play "SpinCylinder" fe
  set icon of me to 15775
  play "SpinCylinder" fe
  set icon of me to 24004
  play "SpinCylinder" fe
  set icon of me to 23959
  play "click"
end mouseUp



-- part 5 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=301 top=92 right=142 bottom=340
-- title width / last selected line: 0
-- icon id / first selected line: 4315 / 4315
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Effects
----- HyperTalk script -----
on mouseUp
  repeat with i = 4312 to 4315
    set icon of me to i
  end repeat
  flash 1
end mouseUp






-- part 6 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=301 top=144 right=194 bottom=340
-- title width / last selected line: 0
-- icon id / first selected line: 4232 / 4232
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Candle
----- HyperTalk script -----
on mouseUp
  repeat with i = 4236 to 4243
    set icon of me to i
  end repeat
  set icon of me to 4240
  wait 15
  visual dissolve slowly to black
  go this card
end mouseUp

on idle
  put 4229 into temp
  put temp + the random of 6 into this
  set icon of me to this
  exit idle
end idle


-- part 7 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=301 top=196 right=246 bottom=340
-- title width / last selected line: 0
-- icon id / first selected line: 4253 / 4253
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Faucet
----- HyperTalk script -----
on mouseUp
  -- "Drip" snd created by Ken Briot
  repeat with i = 4244 to 4251
    set icon of me to i
    if i = 4248 then play "Drip"
  end repeat
  repeat 4
    repeat with i = 4246 to 4249
      set icon of me to i
      if i = 4248 then play "Drip"
    end repeat
    set icon of me to 4250
    set icon of me to 4251
  end repeat
  set icon of me to 4246
  set icon of me to 4245
  repeat 3
    set icon of me to 4252
    set icon of me to 4253
  end repeat
end mouseUp


-- part 8 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=301 top=248 right=298 bottom=340
-- title width / last selected line: 0
-- icon id / first selected line: 4214 / 4214
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Bomb!
----- HyperTalk script -----
on mouseUp
  put 3 into temp
  repeat with i = 4210 to 4214
    play temp
    set icon of me to i
    if temp = 0 then Flash 2
    subtract 1 from temp
  end repeat
  send mouseEnter to btn "Cucu"
end mouseUp




-- part 9 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=84 top=181 right=195 bottom=272
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Click Here to Hide Artwork
----- HyperTalk script -----
on mouseUp
  show card btn "Click Here to Show Artwork"
  show card btn "Show Artwork"
end mouseUp



-- part 10 (button)
-- low flags: 00
-- high flags: 8001
-- rect: left=78 top=93 right=283 bottom=287
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Click Here to Show Artwork
----- HyperTalk script -----
on mouseUp
  set visible of me to not visible of me
  if visible of me is false then hide card btn id 11
end mouseUp




-- part 11 (button)
-- low flags: 00
-- high flags: 0001
-- rect: left=342 top=93 right=283 bottom=493
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Show Artwork
----- HyperTalk script -----
on mouseUp
  set visible of me to not visible of me
end mouseUp



-- part 12 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=98 top=283 right=301 bottom=193
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Play All
----- HyperTalk script -----
on mouseUp
  playAll
end mouseUp



-- part 14 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=234 top=106 right=118 bottom=246
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: BulletHole
----- HyperTalk script -----
on mouseUp
  set icon of me to 0
end mouseUp



-- part 15 (button)
-- low flags: 00
-- high flags: C004
-- rect: left=309 top=311 right=327 bottom=352
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Icons
----- HyperTalk script -----
on mouseUp
  set hilite of me to true
  doMenu short name of me
end mouseUp


-- part 13 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=180 top=192 right=226 bottom=214
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Cucu
----- HyperTalk script -----
on mouseEnter
  global Squack
  put 1 into Squack
  cycle
end mouseEnter

on cycle
  global FastMac, Squack
  repeat until Squack is empty
    set icon of btn "BulletHole" to 0
    set cursor to 87
    put loc of btn "Cucu" into locat1
    put "0,0" into locat2
    put random(512) into item 1 of locat2
    put random(342) into item 2 of locat2
    show btn "Cucu" at locat2

    repeat with i = 6113 to 6116 -- doors open
      set icon of me to i
    end repeat

    repeat random(2)
      if the mouseClick is true then
        action
        exit repeat
      end if
      play "Cucu"
      if FastMac <> empty then wait until the sound is "done"
      set icon of me to 6115
      if the mouseClick is true then
        action
        exit repeat
      end if
      set icon of me to 6116
    end repeat
    if the mouseClick is true then
      action
      exit repeat
    end if

    if Squack is empty then exit repeat
    play "Cucu"
    if FastMac <> empty then wait until the sound is "done"
    repeat with i = 6116 down to 6113 --doors close
      set icon of me to i
    end repeat
    set icon of me to 0
  end repeat
  set icon of btn "BulletHole" to 0
end cycle

on action
  global Bullet, Squack
  put rect of me into locat3
  put the mouseLoc into Bullet
  subtract 20 from item 1 of Bullet
  subtract 20 from item 2 of Bullet
  if item 1 of Bullet < item 1 of locat3 then
    bulletHole
    exit action
  end if
  if item 1 of Bullet > item 3 of locat3 then
    bulletHole
    exit action
  end if
  if item 2 of Bullet < item 2 of locat3 then
    bulletHole
    exit action
  end if
  if item 2 of Bullet > item 4 of locat3 then
    bulletHole
    exit action
  end if
  shot
end action

on shot
  global Squack
  play "GunShot"
  repeat with i = 6126 to 6129
    set icon of me to i
  end repeat
  set icon of me to 0
  put empty into Squack
end shot

on bulletHole
  global Bullet, FastMac
  show btn "BulletHole" at Bullet
  set icon of btn "BulletHole" to 6125
  play "GunShot"
  if FastMac <> empty then wait until the sound is "done"
end bulletHole


-- part contents for background part 56
----- text -----
animated icons 2

-- part contents for background part 78
----- text -----
Prev Card: animated icons 1

-- part contents for background part 79
----- text -----
Next Card: animated icons 3

-- part contents for background part 95
----- text -----
Button Breeder
Button Font Changer
Buttons

-- part contents for background part 96
----- text -----
Change Button Font
Controls
Cover
Crash
Credits
Cursors

-- part contents for background part 97
----- text -----
Date & Time
DeProtect Stack
Dedications
Descriptions
Digitized Sounds
Disk Space Available
Don't Click Here
Don't Panic

-- part contents for background part 67
----- text -----
Mouse Location:

-- part contents for background part 68
----- text -----
250,135

-- part contents for background part 82
----- text -----
Free Space:

-- part contents for background part 83
----- text -----
78.38 K